home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / RA.cpt / I_O.ra < prev    next >
Text File  |  1986-10-21  |  930b  |  52 lines
  1. |
  2. |   RA™
  3. |
  4. |    Program basics
  5. |
  6. |   © 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA™ supports 2 forms of simple!"
  10. "input.  Numeric and character.!!"
  11. "Output is likewise supported in!"
  12. "numeric and character form.!!"
  13. "Currently string input is not!"
  14. "provided.  However, you may output!" "strings.!!"
  15. #A;
  16. "Any string imbedded between quotes!"
  17. "is output to the output window.!"
  18. "An imbedded exclamation point!"
  19. "will force a cr/lf.!!"
  20. #A;
  21. "Sample I/O:!"
  22. "Input a number: " ? A: "!"
  23. "Input a character: " ?§ B: "!"
  24. "The number was: " A. ! "!"
  25. "The character was: " B. !§ "!"
  26. "The ascii value of the character was: " B. ! "!!"
  27. "
  28. #A;
  29. "THE END."
  30. $
  31. &A  "Hit any key:" ?§ @ µ`
  32. |
  33. |  RA title routine
  34. |
  35. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  36.  
  37. &O
  38. 40 100 Ω
  39. "RA™"
  40. 60 45 Ω 
  41. "© 1986 COM~LINK & S.Koren" 
  42. 80 60 Ω
  43. "All rights reserved." `
  44.  
  45. &L
  46. 35 A: ("•" A. 1 - A: A. 0 > ~ ) "!"`
  47.  
  48. &N
  49. "•" 33 A: (" " A. 1 - A: A. 0 > ~ ) "•" "!"`
  50.  
  51. &P ?§ @ `
  52. $